home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / P-New PET 1983 / (p)mb.d64 / math dice.40 (.txt) < prev    next >
Commodore BASIC  |  2007-04-28  |  11KB  |  362 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  29. 150 UZ=1:UV%=PEEK(UT):GOTO300
  30. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  31. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  32. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  33. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  34. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  35. 300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6
  36. 305 PRINT"                M E N U"
  37. 310 PRINT"    --------------------------------"
  38. 315 PRINT"       1.   BEGIN MATH DICE"
  39. 320 PRINT"       2.   STUDENT INSTRUCTIONS"
  40. 325 PRINT"       3.   TEACHER INSTRUCTIONS"
  41. 330 PRINT"       4.   QUIT"
  42. 335 PRINT"    --------------------------------"
  43. 340 PRINT"       PRESS A NUMBER KEY (1-4) ";
  44. 345 UL=1:US$="1234"
  45. 347 GOSUB35:US$=""
  46. 350 ONVAL(UR$)GOSUB1000,400,500,390
  47. 355 GOTO300
  48. 370 IFUZ=1THENSYSUP%:GOTO155
  49. 375 RETURN
  50. 390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
  51. 395 CLR:END
  52. 400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
  53. 405 UT$=" [205]ATH [196]ICE":UH=1:UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
  54. 415 PRINT""
  55. 420 PRINT" [200]I!  [205]Y NAME IS [194]ARNEY.":PRINT
  56. 425 PRINT" [201] WILL THROW TWO DICE, AND SHOW THEM"
  57. 430 PRINT" TO YOU.  [217]OUR JOB IS TO GIVE ME"
  58. 435 PRINT" THE TOTAL NUMBER OF DOTS ON THE TWO"
  59. 440 PRINT" DICE.  [193]FTER ENTERING THE ANSWER,"
  60. 455 PRINT" PLEASE PRESS [210][197][212][213][210][206][146] SO THAT [201] KNOW"
  61. 462 PRINT" WHEN YOU'VE ANSWERED.":GOSUB835:GOSUB850
  62. 464 PRINT" [193]NY TIME YOU NEED HELP, PRESS [200][146] AND"
  63. 468 PRINT" [210][197][212][213][210][206][146].  [201] WILL GIVE YOU TWO CHANCES"
  64. 470 PRINT" TO ANSWER THE QUESTION.  [212]HERE IS A"
  65. 472 PRINT" LITTLE SURPRISE IF YOU DO WELL, SO "
  66. 474 PRINT" TRY YOUR BEST. [199][207][207][196][160][204][213][195][203][160]!"
  67. 485 GOSUB835
  68. 490 IFUZ=1THENSYSUP%:GOTO155
  69. 495 RETURN
  70. 500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
  71. 501 UT$=" [205]ATH [196]ICE":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  72. 502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
  73. 503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
  74. 504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
  75. 505 PRINT"     PLEASE CONTACT:"
  76. 506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
  77. 507 PRINT"          3370 [208]HARMACY [193]VE.
  78. 508 [153]"          ATNGINCOURT, (null)NTARIO"
  79. 509 [153]"          LENANADA, (null)1(null) 2(null)4"
  80. 510 [153]"          (416) 499-4292"
  81. 511 UH[178]1:[141]835:[141]850
  82. 512 [153]"      (null)ROGRAM (null)AME: (null)ATH STR$ICE"
  83. 514 [153]"      (null)EVISED BY  : (null). VAL. (null)ULLIVAN"
  84. 515 [153]"      (null)HIS PROGRAM WILL RUN ON ANY
  85. 516 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195]OMPUTER
  86. 517 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELENOMPUTER
  87. 518 PRINT"         8032 [195][194][205] [195]OMPUTER
  88. 519 [153]"         LENOMMODORE 64 LENOMPUTER
  89. 520 GOSUB 835:GOSUB 850
  90. 525 PRINT ""
  91. 526 PRINT"    [212]HIS PROGRAM WILL HELP YOUNGER"
  92. 530 PRINT" STUDENTS ([203]-3)  DEVELOP THEIR SKILLS"
  93. 532 PRINT" IN COUNTING AND ADDING NUMBERS."
  94. 534 PRINT" [212]HE STUDENT WILL RECEIVE TWO CHANCES"
  95. 536 PRINT" TO CORRECTLY ANSWER EACH QUESTION."
  96. 537 PRINT" [193] CORRECT ANSWER FOR EITHER ATTEMPT"
  97. 538 PRINT" IS COUNTED AS RIGHT IN THEIR SCORE."
  98. 585 GOSUB835
  99. 590 IFUZ=1THENSYSUP%:GOTO155
  100. 595 RETURN
  101. 700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
  102. 705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
  103. 800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
  104. 801 [129]I[178]1[164]38:[153]" WAIT";:[130]
  105. 802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
  106. 803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
  107. 804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
  108. 805 [153]"STEP  WAIT
  109. 806 PRINT" [146]   [146][169]
  110. 807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
  111. 808 PRINT"[223]  [146]
  112. 809 [153]"EDUCATIONAL
  113. 810 PRINT"SOFTWARE
  114. 811 [153]"1983
  115. 812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
  116. 813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
  117. 814 GOTO300
  118. 835 POKEUN,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  119. 840 GETUI$:IFUI$<>" "THEN840
  120. 845 RETURN
  121. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  122. 855 PRINT" --------------------------------------"
  123. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  124. 865 UH=0:PRINT"":RETURN
  125. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  126. 900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
  127. 901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
  128. 902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  129. 903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  130. 904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
  131. 905 UD$="":UP$="                                      "
  132. 909 RETURN
  133. 910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  134. 915 IFPEEK(US+40)<>96THEN700
  135. 920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
  136. 925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  137. 930 PRINT"MEMORY TO RUN THIS PROGRAM!":SYSUE:END
  138. 935 PRINT"[147]"UC$:IFUW=0THEN965
  139. 940 IFUF=60ORUF=108ORUF=124THEN950
  140. 945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
  141. 950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
  142. 955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":SYSUE:END
  143. 960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
  144. 965 SYSUD
  145. 970 GOSUB800:GOTO300
  146. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
  147. 1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,6:POKEUX,14
  148. 1010 RESTORE
  149. 1020 REM MATH DICE                 JULY 80 2 REM
  150. 1025 C%=0:T%=0
  151. 1030 REM COUNT & ADD DOTS ON DICE FOR            CORRECT ANSWER
  152. 1040 REM
  153. 1050 REM 8K PET
  154. 1060 REM
  155. 1070 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  156. 1080 [143]"(null)       SAN MATEO COUNTY      (null)
  157. 1090 REM"[221]     OFFICE OF EDUCATION     [221]
  158. 1100 [143]"(null)             &               (null)
  159. 1110 REM"[221]  COMPUTER-USING EDUCATORS   [221]
  160. 1120 [143]"(null)                             (null)
  161. 1130 REM"[221]          SOFTSWAP           [221]
  162. 1140 [143]"(null)                             (null)
  163. 1150 REM"[221]333 MAIN STREET, REDWOOD CITY[221]
  164. 1160 [143]"(null)CA 94063 (415)364-5600 EX4401(null)
  165. 1170 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  166. 1180 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  167. 1190 REM"[221] PROGRAMS MAY BE COPIED FOR  [221]
  168. 1200 [143]"(null) EDUCATIONAL USE ONLY AND    (null)
  169. 1210 REM"[221] ARE NOT TO BE SOLD.         [221]
  170. 1220 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  171. 1230 REM******************************
  172. 1240 REM*                            *
  173. 1250 REM*         MATH DICE          *
  174. 1260 REM*                            *
  175. 1270 REM*     KID-PROOFED BY JJ      *
  176. 1280 REM*       JULY 16, 1980        *
  177. 1290 REM*                            *
  178. 1300 REM******************************
  179. 1310 :
  180. 1320 ZZ$="                                        "
  181. 1330 PRINT"[147]";:POKEUT,UU%
  182. 1332 UT$=" MATH DICE":UG$="TEST":UP=0
  183. 1333 N=0
  184. 1335 GOSUB 850
  185. 1340 PRINT" WHAT'S YOUR NAME? ";:UL=12:US$="":GOSUB35:IN$=UR$:N$=IN$
  186. 1345 UR$=""
  187. 1350 GOSUB 850:PRINT ""
  188. 1351 PRINT" HOW MANY ROLLS WOULD"
  189. 1352 PRINT" WOULD YOU LIKE, "N$"? ";:UL=2:US$="H0123456789":GOSUB35
  190. 1355 IN$=UR$:UR$="":R%=VAL(IN$)
  191. 1360 GOSUB 850
  192. 1365 FOR X = 1 TO R%:PRINT"";
  193. 1370 N=N+1:D=INT(RND(1)*6+1)
  194. 1380 PRINT:PRINT" [206][163][163][163][163][163][205] "
  195. 1390 IF D=1 GOTO 1460
  196. 1400 IF D=2 GOTO1440
  197. 1410 IF D=3 GOTO 1440
  198. 1420 PRINT" [165][209]   [209][167] "
  199. 1430 GOTO 1470
  200. 1440 PRINT" [165][209] [160][160][160][167][160]"
  201. 1450 GOTO 1470
  202. 1460 PRINT" [165][160]    [167] "
  203. 1470 IF D=2 GOTO 1520
  204. 1480 IF D=4 GOTO 1520
  205. 1490 IF D=6 GOTO 1540
  206. 1500 PRINT" [165]  [209][160][160][167] "
  207. 1510 GOTO 1550
  208. 1520 PRINT" [165]     [167] "
  209. 1530 GOTO 1550
  210. 1540 PRINT" [165][209]   [209][167] "
  211. 1550 IF D=1 GOTO 1620
  212. 1560 IF D=2 GOTO 1600
  213. 1570 IF D=3 GOTO 1600
  214. 1580 PRINT" [165][209]   [209][167] "
  215. 1590 GOTO 1630
  216. 1600 PRINT" [165]    [209][167] "
  217. 1610 GOTO 1630
  218. 1620 PRINT" [165]     [167] "
  219. 1630 PRINT" [205][164][164][164][164][164][206] ":PRINT
  220. 1640 IF N=2 GOTO 1670
  221. 1645 PRINT"    [166]"
  222. 1650 PRINT"   [166][166][166]"
  223. 1655 PRINT"    [166]"
  224. 1660 A=D:GOTO 1370
  225. 1670 T=D+A:PRINT"       = ";
  226. 1680 UL=2:US$="0123456789H":GOSUB35:IN$=UR$:UR$="":T1%=VAL(IN$)
  227. 1690 IF T1%=T GOTO 1755
  228. 1700 PRINT"WRONG!"
  229. 1703 PRINT" COUNT THE SPOTS AND"
  230. 1705 PRINT" GIVE ANOTHER ANSWER."
  231. 1710 PRINT"       =   [157][157][157] ";
  232. 1720 UL=2:US$="1234567890H":GOSUB35:IN$=UR$:UR$="":T2%=VAL(IN$)
  233. 1730 IF T2%=T GOTO 1755
  234. 1744 PRINT"                               "
  235. 1745 PRINT"                               "
  236. 1746 PRINT"                      [145][145][145]"
  237. 1747 PRINTZZ$;" NO, THE ANSWER IS"T".":T%=T%+1
  238. 1750 GOTO 1770
  239. 1755 PRINT"                                "
  240. 1759 PRINT"                               "
  241. 1760 PRINT"                      "
  242. 1761 XX=INT(RND(0)*4+1)
  243. 1762 IF XX=1 THEN 20800
  244. 1763 IF XX=2 THEN 20810
  245. 1764 IF XX=3 THEN 20820
  246. 1765 IF XX=4 THEN 20830
  247. 1766 C%=C%+1:T%=T%+1
  248. 1770 GOSUB835:
  249. 1790 IF X=R% THEN 1810
  250. 1794 GOSUB 850
  251. 1795 PRINT" THE DICE ROLL AGAIN.....":FOR H=1 TO 700:NEXTH
  252. 1800 PRINT"[145]                         "
  253. 1810 N=0:NEXT X
  254. 1820 UH=1:GOSUB 850:UH=0
  255. 1825 PRINT"  YOU HAVE "C%" CORRECT OUT OF";T%
  256. 1830 IF (C%/T%)>.75 THEN GOSUB 1880
  257. 1840 PRINT" DO YOU WANT TO ROLL SOME MORE? ";
  258. 1845 UL=1:US$="HYN":GOSUB35:IN$=UR$:UR$="":A$=IN$:PRINT
  259. 1850 IF LEFT$(A$,1)="Y" THEN PRINT"[147]";:PRINT"";:GOTO1350
  260. 1855 PRINT"[147]";
  261. 1857 PRINT"                                  ";
  262. 1860 GOSUB 850
  263. 1865 PRINT" THANKS FOR PLAYING WITH ME,[157][157][157][157]";N$;"!"
  264. 1875 PRINT"";SPC(14);"GOODBYE!":PRINT"":GOSUB835:GOTO300
  265. 1880 PRINT"     [206][166] [166][166] [166][205]  [206][166][166][166][205]  [166][166]  [166][166]
  266. 1890 [153]"     SPC(SPC(CLOSESPC(SPC( SPC(SPC(  SPC(SPC(SPC(SPC(SPC(  SPC(SPC(CLOSECLOSESPC(SPC(
  267. 1900 PRINT"     [166][166][160][166][166][160][166][166][160][160][166][166][160][166][166][160][160][205][166][166][166][166][206]
  268. 1910 [153]"     SPC(SPC(CLOSESPC(SPC(CLOSESPC(SPC(CLOSECLOSESPC(SPC(SPC(SPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(
  269. 1920 PRINT"     [166][166][160][166][166][160][166][166][160][160][166][166][160][166][166][160][160][160][160][166][166]
  270. 1930 [153]"     (null)SPC(SPC(SPC(SPC(SPC(SPC((null)  (null)SPC(CLOSESPC((null)CLOSECLOSECLOSECLOSESPC(SPC(
  271. 1940 PRINT"
  272. 1950 [153]"   (null)SPC(SPC(SPC(SPC((null)  (null)SPC(SPC(SPC((null)    (null)SPC(SPC(SPC(SPC((null)  (null)SPC(SPC(SPC((null)
  273. 1960 PRINT"   [166][166][166][166][166][166]  [166][166][166][166][166]    [166][166][166][166][166][166][160][160][166][166][166][166][166]
  274. 1970 [153]"     SPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSESPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSECLOSECLOSECLOSECLOSECLOSESPC(SPC(CLOSESPC(SPC(
  275. 1980 PRINT"     [166][166][160][160][160][160][166][166][160][166][166][160][160][160][160][166][166][160][166][166][205][160][160][166][166][160][166][166]
  276. 1990 [153]"     SPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSESPC(SPC(CLOSECLOSECLOSECLOSESPC(SPC(CLOSECLOSESPC(SPC(CLOSECLOSESPC(SPC(CLOSESPC(SPC(
  277. 2000 PRINT"     [166][166][160][160][160][160][166][166][160][166][166][160][160][160][160][166][166][166][166][166][166][160][160][166][166][160][166][166]
  278. 2010 [153]"     SPC(SPC(CLOSECLOSECLOSECLOSE(null)SPC(SPC(SPC((null)    (null)SPC(SPC(SPC(SPC((null)CLOSECLOSE(null)SPC(SPC(SPC((null)
  279. 2020 PRINT:ME$=N$+"!":N%=LEN(ME$)
  280. 2030 FOR X=1 TO N%
  281. 2040 PRINTRIGHT$(ME$,X);:FORT=1TO5:NEXTT
  282. 2050 FORY=1TOX:PRINT"[157]";:NEXTY
  283. 2060 PRINT"[148]";:NEXT X
  284. 2070 REMFORY=1 TON%:PRINT"[157]";:NEXT Y
  285. 2080 FORY=3TO(40-N%)/2:PRINT"[148]";:FORT=1TO15:NEXTT:NEXTY:PRINT:GOSUB20000:RETURN
  286. 20000 REM CHARGE! ADAPTED FROM
  287. 20010 REM 'CURSOR'
  288. 20020 REM BY J. DAVID
  289. 20030 REM WHCI
  290. 20035 IF UW=0 THEN GOTO 20200
  291. 20040 P=59464
  292. 20050 POKE59467,16
  293. 20060 POKE59464,0
  294. 20070 GOSUB20100
  295. 20080 POKE59467,0:POKE59466,0:POKE59464,0
  296. 20090 RETURN
  297. 20100 REM
  298. 20110 POKE59466,15:T=3
  299. 20120 POKEP,255:FORL=1TO100:NEXT:GOSUB20190
  300. 20130 POKEP,191:FORL=1TO100:NEXT:GOSUB20190
  301. 20140 POKEP,152:FORL=1TO100:NEXT:GOSUB20190
  302. 20150 POKEP,128:FORL=1TO200:NEXT:GOSUB20190
  303. 20160 POKEP,152:FORL=1TO100:NEXT:T=0:GOSUB20190
  304. 20170 POKEP,128:FORL=1TO400:NEXT
  305. 20180 RETURN
  306. 20190 POKE59464,0:FORL=1TOT:NEXT:RETURN
  307. 20200 REM <<<BEGIN 64 CHARGE ROUTINE>>>
  308. 20205 :
  309. 20210 S=54272:FORL=STOS+24:POKEL,0:NEXT
  310. 20240 V0=17:V1=65:V2=33
  311. 20250 POKES+10,8:POKES+22,128
  312. 20260 POKES+23,244
  313. 20265 ZZ=ZZ+1:IF ZZ>1 THEN 20500
  314. 20300 FORK1=0TO8
  315. 20310 FORK2=0TO2
  316. 20320 READL(K1,K2),H(K1,K2)
  317. 20330 NEXT:NEXT
  318. 20500 POKE S+5,0:POKES+6,240
  319. 20510 POKE S+12,85:POKES+13,133
  320. 20520 POKE S+19,10:POKE S+20,197
  321. 20530 POKE S+24,31
  322. 20540 FORK1=0TO8
  323. 20550 POKES,L(K1,0):POKES+7,L(K1,1):POKES+14,L(K1,2)
  324. 20560 POKES+1,H(K1,0):POKES+8,H(K1,1):POKES+15,H(K1,2)
  325. 20570 POKES+4,V0:POKES+11,V1:POKES+18,V2
  326. 20580 FORT=1TO90:NEXT:NEXT
  327. 20590 FORT=1TO200:NEXT::POKES+24,0
  328. 20595 RETURN
  329. 20600 DATA 195, 16,143, 10, 71,  6
  330. 20605 DATA 209, 18,143, 12,233,  7
  331. 20610 DATA  31, 21,143, 12, 97,  8
  332. 20620 DATA  30, 25,195, 16,143, 10
  333. 20630 DATA  30, 25,195, 16,143, 10
  334. 20640 DATA  31, 21,143, 12,143, 10
  335. 20650 DATA  30, 25, 31, 21,195, 16
  336. 20660 DATA  30, 25, 31, 21,195, 16
  337. 20670 DATA  30, 25, 31, 21,195, 16
  338. 20800 FORGG=1TO20
  339. 20802 PRINT"                  RIGHT!!![146]              "
  340. 20803 FOR YY=1TO10:NEXTYY
  341. 20804 PRINT"                  RIGHT!!!              ":NEXT GG
  342. 20805 PRINT"                  RIGHT!!![146]            "
  343. 20809 GOTO 1766
  344. 20810 FORGG=1TO20
  345. 20812 PRINT"                   EXCELLENT!!![146]         "
  346. 20813 FOR YY=1TO10:NEXTYY
  347. 20814 PRINT"                   EXCELLENT!!!         ":NEXTGG
  348. 20815 PRINT"                   EXCELLENT!!![146]         "
  349. 20819 GOTO 1766
  350. 20820 FORGG=1TO20
  351. 20822 PRINT"                   GOOD!!![146]              "
  352. 20823 FOR YY=1TO10:NEXTYY
  353. 20824 PRINT"                   GOOD!!!              ":NEXTGG
  354. 20825 PRINT"                   GOOD!!![146]              "
  355. 20829 GOTO 1766
  356. 20830 FORGG=1TO20
  357. 20832 PRINT"                   CORRECT!!![146]           "
  358. 20833 FOR YY=1TO10:NEXTYY
  359. 20834 PRINT"                   CORRECT!!!           ":NEXTGG
  360. 20835 PRINT"                   CORRECT!!![146]           "
  361. 20839 GOTO 1766
  362.